﻿Module inisialisasi

    Public Sub load_Setting()
        'APP.Name = "Aplikasi PPDB 2012 Kota Bandung"
        'APP.Version = "1.0"
        'APP.SALT = "uzumaki"

        'APP.Host.URL = "www.ppdb2012.web.id"
        'APP.Host.PATH = "\"

        'APP.Info.Jenjang = Reg.getValue(REG_JENJANG)
        'APP.Info.KD_Sekolah = Reg.getValue(REG_KD_SEKOLAH)
        'APP.Info.Serial = Reg.getValue(REG_SERIAL)

        'APP.Info.Host = Reg.getValue(REG_HOST)
        APP.Info.Port = "4545"
        APP.Info.User = "root"
        APP.Info.Password = "adminppdb"
        APP.Info.Database = "ppdb2012"

        'APP.Info.Pertamax = Reg.getValue(REG_PERTAMAX)

    End Sub

    Public Sub save_Setting()

        Reg.setValue(REG_JENJANG, APP.Info.Jenjang)
        Reg.setValue(REG_KD_SEKOLAH, APP.Info.KD_Sekolah)
        Reg.setValue(REG_SERIAL, APP.Info.Serial)

        Reg.setValue(REG_HOST, APP.Info.Host)
        Reg.setValue(REG_PORT, APP.Info.Port)
        Reg.setValue(REG_USER, APP.Info.User)
        Reg.setValue(REG_PASSWORD, APP.Info.Password)
        Reg.setValue(REG_DATABASE, APP.Info.Database)

        Reg.setValue(REG_PERTAMAX, "0")

    End Sub



    Public Sub init_List_SMP()
        ListSekolah.Add(1, "201", "SMP NEGERI 1 Bandung", 1)
        ListSekolah.Add(2, "202", "SMP NEGERI 2 Bandung", 1)
        ListSekolah.Add(3, "203", "SMP NEGERI 3 Bandung", 1)
        ListSekolah.Add(4, "204", "SMP NEGERI 4 Bandung", 1)
        ListSekolah.Add(5, "205", "SMP NEGERI 5 Bandung", 1)
        ListSekolah.Add(6, "206", "SMP NEGERI 6 Bandung", 1)
        ListSekolah.Add(7, "207", "SMP NEGERI 7 Bandung", 1)
        ListSekolah.Add(8, "208", "SMP NEGERI 8 Bandung", 1)
        ListSekolah.Add(9, "209", "SMP NEGERI 9 Bandung", 1)
        ListSekolah.Add(10, "210", "SMP NEGERI 10 Bandung", 1)

        ListSekolah.Add(11, "211", "SMP NEGERI 11 Bandung", 1)
        ListSekolah.Add(12, "212", "SMP NEGERI 12 Bandung", 1)
        ListSekolah.Add(13, "213", "SMP NEGERI 13 Bandung", 1)
        ListSekolah.Add(14, "214", "SMP NEGERI 14 Bandung", 1)
        ListSekolah.Add(15, "215", "SMP NEGERI 15 Bandung", 1)
        ListSekolah.Add(16, "216", "SMP NEGERI 16 Bandung", 1)
        ListSekolah.Add(17, "217", "SMP NEGERI 17 Bandung", 1)
        ListSekolah.Add(18, "218", "SMP NEGERI 18 Bandung", 1)
        ListSekolah.Add(19, "219", "SMP NEGERI 19 Bandung", 1)
        ListSekolah.Add(20, "220", "SMP NEGERI 20 Bandung", 1)

        ListSekolah.Add(21, "221", "SMP NEGERI 21 Bandung", 1)
        ListSekolah.Add(22, "222", "SMP NEGERI 22 Bandung", 1)
        ListSekolah.Add(23, "223", "SMP NEGERI 23 Bandung", 1)
        ListSekolah.Add(24, "224", "SMP NEGERI 24 Bandung", 1)
        ListSekolah.Add(25, "225", "SMP NEGERI 25 Bandung", 1)
        ListSekolah.Add(26, "226", "SMP NEGERI 26 Bandung", 1)
        ListSekolah.Add(27, "227", "SMP NEGERI 27 Bandung", 1)
        ListSekolah.Add(28, "228", "SMP NEGERI 28 Bandung", 1)
        ListSekolah.Add(29, "229", "SMP NEGERI 29 Bandung", 1)
        ListSekolah.Add(30, "230", "SMP NEGERI 30 Bandung", 1)
        ListSekolah.Add(31, "231", "SMP NEGERI 31 Bandung", 1)

        ListSekolah.Add(32, "232", "SMP NEGERI 32 Bandung", 1)
        ListSekolah.Add(33, "233", "SMP NEGERI 33 Bandung", 1)
        ListSekolah.Add(34, "234", "SMP NEGERI 34 Bandung", 1)
        ListSekolah.Add(35, "235", "SMP NEGERI 35 Bandung", 1)
        ListSekolah.Add(36, "236", "SMP NEGERI 36 Bandung", 1)
        ListSekolah.Add(37, "237", "SMP NEGERI 37 Bandung", 1)
        ListSekolah.Add(38, "238", "SMP NEGERI 38 Bandung", 1)
        ListSekolah.Add(39, "239", "SMP NEGERI 39 Bandung", 1)
        ListSekolah.Add(40, "240", "SMP NEGERI 40 Bandung", 1)

        ListSekolah.Add(41, "241", "SMP NEGERI 41 Bandung", 1)
        ListSekolah.Add(42, "242", "SMP NEGERI 42 Bandung", 1)
        ListSekolah.Add(43, "243", "SMP NEGERI 43 Bandung", 1)
        ListSekolah.Add(44, "244", "SMP NEGERI 44 Bandung", 1)
        ListSekolah.Add(45, "245", "SMP NEGERI 45 Bandung", 1)
        ListSekolah.Add(46, "246", "SMP NEGERI 46 Bandung", 1)
        ListSekolah.Add(47, "247", "SMP NEGERI 47 Bandung", 1)
        ListSekolah.Add(48, "248", "SMP NEGERI 48 Bandung", 1)
        ListSekolah.Add(49, "249", "SMP NEGERI 49 Bandung", 1)
        ListSekolah.Add(50, "250", "SMP NEGERI 50 Bandung", 1)

        ListSekolah.Add(51, "251", "SMP NEGERI 51 Bandung", 1)
        ListSekolah.Add(52, "252", "SMP NEGERI 52 Bandung", 1)
        ListSekolah.Add(53, "253", "SMP NEGERI 53 Bandung", 1)

        ListSekolah.Add(54, "254", "MTs NEGERI 1 Bandung", 1)
        ListSekolah.Add(55, "255", "MTs NEGERI 2 Bandung", 1)
    End Sub

    Public Sub init_List_SMA()
        ListSekolah.Add(1, "301", "SMA NEGERI 1 Bandung", 2)
        ListSekolah.Add(2, "302", "SMA NEGERI 2 Bandung", 1)
        ListSekolah.Add(3, "303", "SMA NEGERI 3 Bandung", 1)
        ListSekolah.Add(4, "304", "SMA NEGERI 4 Bandung", 1)
        ListSekolah.Add(5, "305", "SMA NEGERI 5 Bandung", 1)
        ListSekolah.Add(6, "306", "SMA NEGERI 6 Bandung", 2)
        ListSekolah.Add(7, "307", "SMA NEGERI 7 Bandung", 2)
        ListSekolah.Add(8, "308", "SMA NEGERI 8 Bandung", 1)
        ListSekolah.Add(9, "309", "SMA NEGERI 9 Bandung", 2)
        ListSekolah.Add(10, "310", "SMA NEGERI 10 Bandung", 3)

        ListSekolah.Add(11, "311", "SMA NEGERI 11 Bandung", 1)
        ListSekolah.Add(12, "312", "SMA NEGERI 12 Bandung", 3)
        ListSekolah.Add(13, "313", "SMA NEGERI 13 Bandung", 3)
        ListSekolah.Add(14, "314", "SMA NEGERI 14 Bandung", 3)
        ListSekolah.Add(15, "315", "SMA NEGERI 15 Bandung", 3)
        ListSekolah.Add(16, "316", "SMA NEGERI 16 Bandung", 3)
        ListSekolah.Add(17, "317", "SMA NEGERI 17 Bandung", 3)
        ListSekolah.Add(18, "318", "SMA NEGERI 18 Bandung", 3)
        ListSekolah.Add(19, "319", "SMA NEGERI 19 Bandung", 3)
        ListSekolah.Add(20, "320", "SMA NEGERI 20 Bandung", 2)

        ListSekolah.Add(21, "321", "SMA NEGERI 21 Bandung", 3)
        ListSekolah.Add(22, "322", "SMA NEGERI 22 Bandung", 2)
        ListSekolah.Add(23, "323", "SMA NEGERI 23 Bandung", 3)
        ListSekolah.Add(24, "324", "SMA NEGERI 24 Bandung", 1)
        ListSekolah.Add(25, "325", "SMA NEGERI 25 Bandung", 3)
        ListSekolah.Add(26, "326", "SMA NEGERI 26 Bandung", 3)
        ListSekolah.Add(27, "327", "SMA NEGERI 27 Bandung", 3)
        ListSekolah.Add(28, "328", "MA NEGERI 1 Bandung", 2)
        ListSekolah.Add(29, "329", "MA NEGERI 2 Bandung", 3)
       
    End Sub

    Public Sub init_List_SMK()
        ListSekolah.Add(1, "401", "SMK NEGERI 1 Bandung", "")
        ListSekolah.Add(2, "402", "SMK NEGERI 2 Bandung", "")
        ListSekolah.Add(3, "403", "SMK NEGERI 3 Bandung", "")
        ListSekolah.Add(41, "404", "SMK NEGERI 4 Bandung", "Tek. Komputer Jaringan")
        ListSekolah.Add(5, "405", "SMK NEGERI 5 Bandung", "")
        ListSekolah.Add(6, "406", "SMK NEGERI 6 Bandung", "")
        ListSekolah.Add(7, "407", "SMK NEGERI 7 Bandung", "")
        ListSekolah.Add(8, "408", "SMK NEGERI 8 Bandung", "")
        ListSekolah.Add(9, "409", "SMK NEGERI 9 Bandung", "")
        ListSekolah.Add(10, "410", "SMK NEGERI 10 Bandung", "")
        ListSekolah.Add(11, "411", "SMK NEGERI 11 Bandung", "")
        ListSekolah.Add(12, "412", "SMK NEGERI 12 Bandung", "")
        ListSekolah.Add(13, "413", "SMK NEGERI 13 Bandung", "")
        ListSekolah.Add(14, "414", "SMK NEGERI 14 Bandung", "")
        ListSekolah.Add(15, "415", "SMK NEGERI 15 Bandung", "")
        'ListSekolah.Add(15, "416", "SMK PU NEGERI Bandung", "")
    End Sub

End Module
